#Source the fixed part that will be in the environment (coming from BLPdata)====
source("CF_MMX_settings_fixed_env.R") 

#Source the varying part which depends on Outside good share (we don't run them all)
if(OGpct == 90){
  cat("OGpct == 90")
  b.settings <- readRDS(file=paste0("../Tables/CF_MM/MCES/MC/CF_settings_bOG_",OGpct,".rds"))
  a.settings.mlog <- readRDS(file=paste0("../Tables/CF_MM/MLOG/MC/CF_settings_aOG_",OGpct,".rds"))
  b.settings.mlog <- readRDS(file=paste0("../Tables/CF_MM/MLOG/MC/CF_settings_bOG_",OGpct,".rds"))
} else{
  if(OGpct == 10){
    cat("OGpct == 10")  
    b.settings <- readRDS(file=paste0("../Tables/CF_MM/MCES/MC/CF_settings_bOG_",OGpct,".rds"))
    c.settings <- readRDS(file=paste0("../Tables/CF_MM/MCES/OLY/CF_settings_cOG_",OGpct,".rds"))
    b.settings.mlog <- readRDS(file=paste0("../Tables/CF_MM/MLOG/MC/CF_settings_bOG_",OGpct,".rds"))
  } 
  else{
    cat("OGpct == 50")
    b.settings.mlog <- readRDS(file=paste0("../Tables/CF_MM/MLOG/MC/CF_settings_bOG_",OGpct,".rds"))
  }
}


